1000 REM *** LUSTIGE KOLLISION ***
1010 :
1020 :
1030 REM ** SPRITE-DATEN LADEN
1040 :
1050 PRINT "[147]"
1060 FOR N = 832 TO 958
1070 :   READ SPDTA
1080 :   POKE N, SPDTA
1090 NEXT N
1100 :
1110 DATA   0,255,  0,  1,129,128
1120 DATA   3,  0,192,  3,  0,192
1130 DATA   3,  0,192,  6,102, 96
1140 DATA  60,102, 60, 96,  0,  6
1150 DATA 192,  0,  3,192,102,  3
1160 DATA 198, 60, 99, 99,  0,198
1170 DATA 113,129,142, 28,195, 56
1180 DATA  12,195, 48, 12,102, 48
1190 DATA   6, 60, 96,  6,  0, 96
1200 DATA   3,129,192,  0,195,  0
1210 DATA   0,126,  0,  0
1220 :
1230 DATA   0,  0,  0,  0, 16,  0
1240 DATA   0, 56,  0,  0, 84,  0
1250 DATA   0, 16,  0,  2, 16,128
1260 DATA   1, 17,  0,  0,146,  0
1270 DATA  16, 84, 16, 32, 56,  8
1280 DATA 127,255,252, 32, 56,  8
1290 DATA  16, 84, 16,  0,146,  0
1300 DATA   1, 17,  0,  2, 16,128
1310 DATA   0, 16,  0,  0, 84,  0
1320 DATA   0, 56,  0,  0, 16,  0
1330 DATA   0,  0,  0
1340 :
1350 :
1360 REM ** SPRITES VORBEREITEN UND EIN
1370 :
1380 VIC = 53248    :REM GRAFIKBAUSTEIN
1390 POKE VIC+33,0  :REM HGRND SCHWARZ
1400 :
1410 POKE 2040,13   :REM DATENZEIGER 0
1420 POKE 2041,14   :REM DATENZEIGER 1
1430 :
1440 POKE VIC,120   :REM HORZNTL.POS. 0
1450 POKE VIC+2,160 :REM HORZNTL.POS. 1
1460 POKE VIC+1,138 :REM VERTKAL.POS. 0
1470 POKE VIC+3,126 :REM VERTKAL.POS. 1
1480 :
1490 POKE VIC+39,3  :REM 0 IST HELLBLAU
1500 POKE VIC+40,7  :REM 1 IST GELB
1510 POKE VIC+29,2  :REM NUR 1 IST VON
1520 POKE VIC+23,2  :REM DOPP. GROESSE
1530 :
1540 POKE VIC+21,3  :REM BEIDE SICHTB.
1550 :
1560 :
1570 REM ** BEWEGUNG SPRITE 0
1580 :
1590 JR = PEEK (56320)  :REM EINGANG 2
1600 IF (JR AND 16) = 0 THEN 1870
1610 HD = SGN(JR AND 4) - SGN(JR AND 8)
1620 VD = SGN(JR AND 1) - SGN(JR AND 2)
1630 :
1640 POKE VIC, PEEK(VIC) + HD
1650 POKE VIC+1, PEEK(VIC+1) + VD
1660 :
1670 :
1680 REM ** ZURUECK, WENN KEINE KOLLIS.
1690 :
1700 IF PEEK(VIC+30) = 0 THEN 1490
1710 :
1720 :
1730 REM ** KOLLISION : 1 WIRD WEISS         UND 0 BLINKT BUNT
1740 :
1750 POKE VIC+40, 1
1760 :
1770 HUE = PEEK(VIC+39) AND 15
1780 HUE = HUE + 1
1790 IF HUE = 8 THEN HUE = 1
1800 POKE VIC+39, HUE
1810 :
1820 GOTO 1590
1830 :
1840 :
1850 REM ** AUSGANGSWERT UND ENDE
1860 :
1870 POKE VIC+21,0
1880 POKE VIC+29,0
1890 POKE VIC+23,0
1900 :
1910 END